www.gusucode.com > 落叶冰点万能企业网站内容管理系统 V9.1 > 落叶冰点万能企业网站内容管理系统 V9.1\code\admin\adminArticle\D_del_acticle.asp

    <%


'**************************************************************
' 新动软网站管理系统
' 官方网站: http://www.aspcpu.com
' 系统作者: 阮丁远(网名：天下程序)
' Copyright 新动软网站管理系统 版权所有
'**************************************************************


%>





<LINK href="../css.css" type=text/css rel=stylesheet>
<%

dir_set="../../"


%>


<!--#include file=../../inc/conn.asp-->
<!--#include file=../../inc/Functionb.asp-->

<!--#include file=../../inc/ajaxLIB.asp-->

<!--#include file=../inc/checkadmin2.asp-->



<!--#include file=inc_lanmu_bl.asp-->


<!--#include file=../../inc/ND_class_function.asp-->

<!--#include file="../adminHTML/makehtm_inc/D_makehtml_class.asp"-->


<%
AJAXshowLoader()


%>



	<%




sys_content_type=trim(request("sys_content_type"))


set rs44g=server.CreateObject("adodb.recordset")
rs44g.open "select * from ND_channel where sys_content_type_name='"&sys_content_type&"' and lanmu_type='"&lanmu_taba&"'",conn,1,1



'------------------------del htm1
is_cmsa=1
is_qiye=0
if cstr(rs44g("is_qiye"))="1" then
is_cmsa=0
is_qiye=1
end if
'------------------------del htm1



if find_dataw(lanmu_taba,rs44g("id"),3)<>"1" and qx_if_max=0 then
response.redirect "../D_suodinguser.asp"
end if

biao="[ND_Article_class]"
biao2="[ND_Article]"
sys_content_type=trim(request("sys_content_type"))

%>

<!--#include file=../D_delahtm.asp-->


<%
call delahtmx(request("id"),"$page$article_view_page$")

biao="[ND_Article_class]"
biao2="[ND_Article]"

'必须放在最后，以让上述代码工作正常
conn.execute("delete from "&biao2&" where sys_content_type='"&sys_content_type&"' and id="&request("id"))


%>
<script language="javascript">
alert("删除成功");
self.location="D_admin_acticle.asp?sys_content_type=<%=sys_content_type%>";

</script>





<%
AJAXcloseLoader()
%>